home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 October / Macformat17.cdr / Shareware City / Developers / MungeImage Source / DeInstaller.p < prev    next >
Text File  |  1994-06-18  |  246b  |  17 lines
  1. program DeInstaller;
  2.  
  3.     uses
  4.         MyDriver;
  5.  
  6.     const
  7.         Driver_Name = '.MungeImage';
  8.  
  9.     var
  10.         junk: OSErr;
  11.         drvr_ref: integer;
  12. begin
  13.     drvr_ref := GetDriverRefNum(Driver_Name);
  14.     if drvr_ref <> 0 then begin
  15.         junk := RemoveRAMDriver(drvr_ref);
  16.     end;
  17. end.